inherited frmManCheque: TfrmManCheque
  Left = 58
  Top = 156
  Caption = 'Manuten'#231#227'o do controle de cheques'
  ClientHeight = 493
  ClientWidth = 1028
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Left = 963
    Top = 61
    Height = 432
    inherited btnFechar: TSpeedButton
      Left = 2
      Top = 386
      Width = 62
      Height = 45
    end
    inherited btnIncluir: TSpeedButton
      Top = 46
      Caption = 'Atualizar'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
        007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
        7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
        99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      OnClick = btnIncluirClick
    end
    inherited btnEditar: TSpeedButton
      Left = 11
      Top = 437
      Visible = False
    end
    inherited btnExcluir: TSpeedButton
      Left = 11
      Top = 479
      Visible = False
    end
    inherited Bevel3: TBevel
      Left = 94
      Top = 46
      Visible = False
    end
    inherited Bevel1: TBevel
      Top = 383
    end
    object btnNovo: TSpeedButton
      Left = 3
      Top = 3
      Width = 59
      Height = 41
      Caption = 'Novo'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333FF33333333FF333993333333300033377F3333333777333993333333
        300033F77FFF3333377739999993333333333777777F3333333F399999933333
        33003777777333333377333993333333330033377F3333333377333993333333
        3333333773333333333F333333333333330033333333F33333773333333C3333
        330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
        333333333337733333FF3333333C333330003333333733333777333333333333
        3000333333333333377733333333333333333333333333333333}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = btnNovoClick
    end
  end
  inherited Panel3: TPanel
    Width = 1028
    Height = 61
    inherited Label2: TLabel
      Width = 47
      Caption = 'Pedido: '
    end
    inherited Label1: TLabel
      Left = 191
      Width = 88
      Caption = 'Representante:'
    end
    inherited btnPesquisa: TSpeedButton
      Left = 700
      Top = 7
      Width = 100
      Height = 47
      OnClick = btnPesquisaClick
    end
    object Label3: TLabel [3]
      Left = 9
      Top = 35
      Width = 70
      Height = 13
      Caption = 'Nr. Cheque:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    inherited edtCodigo: TEdit
      Left = 66
      Font.Color = clBlack
      ParentFont = False
    end
    inherited edtDescricao: TEdit
      Left = 291
      Width = 398
      Font.Color = clBlack
      ParentFont = False
    end
    object edtNrCheque: TEdit
      Left = 86
      Top = 31
      Width = 114
      Height = 19
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      OnEnter = edtCodigoEnter
      OnExit = edtCodigoExit
    end
    object rbTodos: TRadioButton
      Left = 291
      Top = 33
      Width = 87
      Height = 17
      Caption = 'Todos'
      Checked = True
      TabOrder = 3
      TabStop = True
    end
    object rbDevolvido: TRadioButton
      Left = 381
      Top = 33
      Width = 99
      Height = 17
      Caption = 'Devolvidos'
      TabOrder = 4
    end
    object rbCompensado: TRadioButton
      Left = 481
      Top = 33
      Width = 113
      Height = 17
      Caption = 'Compensados'
      TabOrder = 5
    end
  end
  inherited Panel4: TPanel
    Top = 61
    Width = 964
    Height = 387
    Align = alCustom
    inherited DBGrid1: TDBGrid
      Width = 960
      Height = 383
      OnDrawColumnCell = DBGrid1DrawColumnCell
      Columns = <
        item
          Expanded = False
          FieldName = 'sStatus'
          Title.Caption = ' '
          Width = 23
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CD_PEDIDO'
          Title.Caption = 'Pedido'
          Width = 86
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NOME'
          Title.Caption = 'Representante'
          Width = 299
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'nr_cheque'
          Title.Caption = 'Nr. Cheque'
          Width = 94
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'agencia'
          Title.Alignment = taCenter
          Title.Caption = 'Agencia'
          Visible = False
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'dt_compensacao'
          Title.Alignment = taCenter
          Title.Caption = 'Compensa'#231#227'o'
          Width = 88
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'sValor'
          Title.Alignment = taRightJustify
          Title.Caption = 'Valor'
          Width = 114
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ds_banco'
          Title.Caption = 'Banco'
          Width = 199
          Visible = True
        end
        item
          Expanded = False
          Visible = False
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'dt_confirmacao'
          Title.Alignment = taCenter
          Title.Caption = 'Confirma'#231#227'o'
          Visible = False
        end>
    end
  end
  object Panel1: TPanel [3]
    Left = 0
    Top = 447
    Width = 964
    Height = 46
    Align = alCustom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object Label7: TLabel
      Left = 33
      Top = 10
      Width = 156
      Height = 13
      Caption = 'Cheque Compensado/Pago'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 219
      Top = 11
      Width = 105
      Height = 13
      Caption = 'Cheque Devolvido'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    object Panel6: TPanel
      Left = 11
      Top = 7
      Width = 19
      Height = 17
      Color = clGreen
      TabOrder = 0
    end
    object Panel8: TPanel
      Left = 197
      Top = 8
      Width = 19
      Height = 17
      Color = clRed
      TabOrder = 1
    end
  end
  inherited DS_Grid: TDataSource
    Left = 632
    Top = 145
  end
  inherited QR_Grid: TADOQuery
    OnCalcFields = QR_GridCalcFields
    SQL.Strings = (
      'SELECT DISTINCT R.NOME,  P.CD_PEDIDO, CF.*, B.ds_banco'
      'FROM (((((TB_CHEQUE_FATURA CF'
      'INNER JOIN TB_FATURA_PARCELA FP'
      'ON CF.CD_PAGAMENTO = FP.CD_PAGAMENTO)'
      'INNER JOIN TB_FATURA F'
      'ON FP.CD_FATURA = F.CD_FATURA)'
      'INNER JOIN TB_PEDIDO P'
      'ON F.CD_PEDIDO = P.CD_PEDIDO)'
      'INNER JOIN TB_REPRESENTANTE R'
      'ON P.CD_REPRESENTANTE = R.CD_REPRESENTANTE)'
      'LEFT JOIN TB_BANCO B'
      'ON CF.CD_BANCO = B.CD_BANCO)')
    Left = 672
    object QR_GridNOME: TWideStringField
      FieldName = 'NOME'
      Size = 50
    end
    object QR_Gridcd_cheque_fatura: TAutoIncField
      FieldName = 'cd_cheque_fatura'
      ReadOnly = True
    end
    object QR_Gridcd_pagamento: TIntegerField
      FieldName = 'cd_pagamento'
    end
    object QR_Gridnr_cheque: TWideStringField
      FieldName = 'nr_cheque'
      Size = 50
    end
    object QR_Gridnr_conta: TWideStringField
      FieldName = 'nr_conta'
      Size = 50
    end
    object QR_Gridagencia: TWideStringField
      FieldName = 'agencia'
      Size = 50
    end
    object QR_Griddt_compensacao: TDateTimeField
      FieldName = 'dt_compensacao'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object QR_Gridvalor: TBCDField
      FieldName = 'valor'
      Precision = 19
    end
    object QR_Gridstatus: TWideStringField
      FieldName = 'status'
      Size = 50
    end
    object QR_Griddt_confirmacao: TDateTimeField
      FieldName = 'dt_confirmacao'
    end
    object QR_Gridobs: TWideStringField
      FieldName = 'obs'
      Size = 50
    end
    object QR_GridsValor: TStringField
      FieldKind = fkCalculated
      FieldName = 'sValor'
      Calculated = True
    end
    object QR_GridsStatus: TStringField
      FieldKind = fkCalculated
      FieldName = 'sStatus'
      Calculated = True
    end
    object QR_GridCD_PEDIDO: TWideStringField
      FieldName = 'CD_PEDIDO'
      Size = 50
    end
    object QR_Gridcd_banco: TWideStringField
      FieldName = 'cd_banco'
      Size = 50
    end
    object QR_Gridds_titular_cheque: TWideStringField
      FieldName = 'ds_titular_cheque'
      Size = 50
    end
    object QR_Gridds_banco: TWideStringField
      FieldName = 'ds_banco'
      Size = 255
    end
  end
end
